home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / rbbsconn.zip / RSB4CONN.MRG < prev    next >
Text File  |  1991-10-02  |  2KB  |  53 lines
  1. 62620 ' $SUBTITLE: 'Transfer - Subroutine for external protocols'
  2. ' $PAGE
  3. '
  4. '  NAME    -- Transfer
  5. '
  6. '  INPUTS  --     PARAMETER                    MEANING
  7. '              ZTransferFunction         = 1 DOWNLOAD FILE TO USER
  8. '                                        = 2 UPLOAD FILE TO RBBS-PC
  9. '              ZFileName$                NAME OF FILE FOR Transfer
  10. '              ZComPort$                 NAME OF COMMUNICATIONS PORT
  11. '                                        TO BE USED BY KERMIT (COM1
  12. '                                        OR COM2)
  13. '              ZBPS                      = -1 FOR   300 BAUD
  14. '                                        = -2 FOR   450 BAUD
  15. '                                        = -3 FOR  1200 BAUD
  16. '                                        = -4 FOR  2400 BAUD
  17. '                                        = -5 FOR  4800 BAUD
  18. '                                        = -6 FOR  9600 BAUD
  19. '                                        = -7 FOR 14400 BAUD         ' DB093001
  20. '                                        = -8 FOR 19200 BAUD
  21. '
  22. '  OUTPUTS  -- NONE
  23. '
  24. '  PURPOSE -- To transfer files using external protocols
  25. '
  26.       SUB Transfer STATIC
  27.       IF ZPrivateDoor THEN _
  28.          CALL PrivDoorRtn : _
  29.          EXIT SUB
  30.       IF ZTransferFunction = 1 THEN _
  31.          ZUserIn$ = ZDownTemplate$ : _
  32.          ZWasZ$ = "Send " _                                          ' TC090101
  33.       ELSE IF ZTransferFunction = 2 THEN _
  34.               ZUserIn$ = ZUpTemplate$ : _
  35.               ZWasZ$ = "Receive "                                    ' TC090101
  36.       CALL MetaGSR (ZUserIn$,ZFalse)
  37.       CALL QuickTPut ("Protocol     : "+ZProtoPrompt$,2)             ' TC090101
  38.       CALL QuickTPut ("Ready to " + ZWasZ$,0)                        ' TC090101
  39.       IF ZBatchTransfer THEN _
  40.          CALL QuickTPut1 ("(BATCH)") : _
  41.          CALL OpenWork (2,ZNodeWorkFile$) : _
  42.          WHILE NOT EOF(2) : _
  43.            CALL ReadAny : _
  44.            CALL BreakFileName (ZOutTxt$,ZWasZ$,ZWasY$,WasX$,ZTrue) : _
  45.            CALL QuickTPut1 ("   "+ZWasY$+WasX$) : _
  46.          WEND _
  47.       ELSE CALL QuickTPut1 (ZFileNameHold$)
  48.       IF ZAutoLogoffReq THEN _
  49.          CALL SkipLine (1) : _                                       ' TC090101
  50.          CALL QuickTPut1 ("Auto-Logoff After a Successful Download.") ' TC090101
  51.       CALL PrivDoorRtn
  52.       END SUB
  53.